// 1966 Recoding

global keepers1966 ""

numlabel, add

genl id=v2
global keepers1966 $keepers1966 id

keep if v13==1

genl year=1966
global keepers1966 $keepers1966 year

genl wt=v14
global keepers1966 $keepers1966 wt

genl incomehh=v1006
genl incomer=v1014
recode incomehh 1=125 2=300 3=400 4=500 5=600 6=700 7=800 8=900 9=1075 10=1325 11=1575 12=1825 13=1950
recode incomer 1=125 2=300 3=400 4=500 5=600 6=700 7=800 8=900 9=1075 10=1325 11=1575 12=1825 13=1950
genl income=incomehh
replace income=incomer if incomehh==. & incomer~=.
replace income=incomehh+incomer if incomer~=. & incomehh~=.
genl income3=income
centile income, c(33 66 100)
replace income3=0 if income<=r(c_1)
centile income, c(33 66 100)
replace income3=1 if income>r(c_1) & income<=r(c_2)
centile income, c(33 66 100)
replace income3=2 if income>r(c_2) & income<=r(c_3)
global keepers1966 $keepers1966 income3

/* genl vote_ce=v1162
recode vote_ce 2 =1 1 3/5 = 0
This variables was recoded as follows, 19/7/13: */

*drop vote_ce
genl vote_ce=v364
recode vote_ce 2 =1 1 3/5 = 0
global keepers1966 $keepers1966 vote_ce

genl turnout=v357
recode turnout 5=0
global keepers1966 $keepers1966 turnout

genl pid_ce=v446
recode pid_ce 2 =1 1 3/5 . = 0
global keepers1966 $keepers1966 pid_ce


// Campaign Interest

gen intcampnew = v127
recode intcampnew 1=1 2=.5 3=0
label variable intcampnew "campaing interest new"
label define campinterest 1 "1=high interest" 0 "low interest"
label values intcampnew campinterest
tab v127 intcampnew
global keepers1966 $keepers1966 intcampnew


// General Interest in Pols

gen talkedaboutnew = v120
recode talkedaboutnew 1=1 5=0
label variable talkedaboutnew "talked with others new"
label define talked 1 "1=talked to others" 0 "didn't talk"
label values talkedaboutnew talked
tab v120 talkedaboutnew
global keepers1966 $keepers1966 talkedaboutnew


// Issue Involvement

gen intissuenew = v442
recode intissuenew 1=1 5=0
label variable intissuenew "cared about who won new"
label define care 1 "1=cared" 0 "didn't care"
label values intissuenew care
tab v442 intissuenew
global keepers1966 $keepers1966 intissuenew


// Media Exposure

gen npexpnew = v72
recode npexpnew 1=1 5=0
label variable npexpnew "reads newspaper new"
label define reads 1 "1=reads np" 0 "doesn't read np"
label values npexpnew reads
tab v72 npexpnew
global keepers1966 $keepers1966 npexpnew

gen tvfollownew = v64
recode tvfollownew 1=1 5=0
label variable tvfollownew "followed campaign on tv new"
label define follows 1 "1=followed" 0 "didn't follow"
label values tvfollownew follows
tab v64 tvfollownew
global keepers1966 $keepers1966 tvfollownew

gen npfollownew = v85
recode npfollownew 1=1 5=0
label variable npfollownew "followed campaign in newspaper new"
label values npfollownew follows
tab v85 npfollownew
global keepers1966 $keepers1966 npfollownew


// Ideology

gen taxspendnew = v233
recode taxspendnew 1=1 5=0
label variable taxspendnew "social spending new"
label define spend 1 "1=pro-spending" 
label values taxspendnew spend
tab v233 taxspendnew
global keepers1966 $keepers1966 taxspendnew

gen taxspendnew66 = v239
recode taxspendnew66 1=0 5=1
label variable taxspendnew66 "social spending 66 new"
label values taxspendnew66 spend
tab v239 taxspendnew66
global keepers1966 $keepers1966 taxspendnew66

gen leftrightselfnew = v306
recode leftrightselfnew 1=1 2=.5 3=0 4=.5 8=. 9=.5 0=.
label variable leftrightselfnew "left-right self placement new"
label define lr 1 "1=left"
label values leftrightselfnew lr
tab leftrightselfnew v306
global keepers1966 $keepers1966 leftrightselfnew

gen stateownnew = v216
replace stateownnew = (abs(stateownnew-4))/3
label variable stateownnew "nationalisation new"
label define natnlown 1 "1=pro-nationalisation"
label values stateownnew natnlown
tab v216 stateownnew
global keepers1966 $keepers1966 stateownnew

gen buspowernew = v250
recode buspowernew 1=1 5=0
label variable buspowernew "business power new"
label define powers 1 "1=too much power"
label values buspowernew powers
tab buspowernew v250
global keepers1966 $keepers1966 buspowernew

gen unionpowernew = v229
recode unionpowernew 1=1 5=0
label variable unionpowernew "union power new"
label values unionpowernew powers
tab unionpowernew v229
global keepers1966 $keepers1966 unionpowernew


// Class/occupation

gen class_head_grade = v965
*label variable class_head_grade ""
label define LblClassGrade 1 "A: (Higher man.; prof." 2 "B: Lower man.; admin." 3 "C1A: Skilled; supervis. non-manu." 4 "C1B: Lower non-manu." 5 "C2: Skilled manu." 6 "D: Unskilled manu."
label values class_head_grade LblClassGrade
global keepers1966 $keepers1966 class_head_grade

gen class_resp_grade = v981
*label variable class_head_grade ""
label values class_resp_grade LblClassGrade
global keepers1966 $keepers1966 class_resp_grade

gen male = v930
recode male 1=1 2=0
global keepers1966 $keepers1966 male

gen married = v935
recode married 1=0 2=1 3=0 4=0 5=0
global keepers1966 $keepers1966 married




// Economic perceptions

gen econ_ego_retro = v331
recode econ_ego_retro 1=2 2=0 3=1
global keepers1966 $keepers1966 econ_ego_retro
